  10 :RETURN ;CLEAR ;BC=0;FC=28;H=100;P=1000;T=0;A=10;&(21)=0
  20 FOR Z=-10TO 10STEP 20;BOX Z,0,11,1,1;BOX 0,Z,1,11,1;NEXT Z
  25 CY=-14;PRINT "TEMP====";PRINT "POWER===";PRINT "SHIELDS=100%
  30 FOR Z=1TO 50;BOX RND (160)-80,RND (88)-44,1,1,1;NEXT Z
  40 X=RND (30)-15;Y=RND (30)-15;Q=RND (4)
  45 IF Q#1GOTO 51
  50 BOX X,Y,5,3,3;BOX X,Y+1,3,3,3;BOX X,Y,9,1,3;E=JX(1)×2;F=JY(1)×2
  51 IF T>82IF R=0R=1;CY=40;PRINT "TEMP CRITICAL
  52 IF T<83IF R=1R=0;BOX -35,40,90,8,2
  53 T=T-1;IF T<0T=0
  54 P=P-1;IF P<0P=0
  55 NT=0;CY=-14;CX=-28;PRINT #1,T;CY=-22;CX=-28;PRINT #1,P
  56 IF P=0PRINT "POWER FAILURE!!!";GOTO 3000
  57 IF T>100PRINT "ENGINES OVERHEATED!!!!";GOTO 4000
  58 IF Q#1FOR Z=1TO 150;NEXT Z;GOTO 40
  60 IF RND (6)=1NT=3;GOTO 1000
  65 NT=2;MU=70
  67 IF TR(1)P=P-25;T=T+9;GOTO 2000
  70 BOX X,Y,5,3,3;BOX X,Y+1,3,3,3;BOX X,Y,9,1,3;X=X+RND (3)-2-E;Y=Y+RND (3)-2-F;GOTO 50
1000 FOR Z=1TO 2;FC=89;BOX X,Y,9,9,3;MU=76;NEXT Z;FC=28;B=RND (3)
1030 IF B#1GOTO 67
1040 FC=89;&(21)=255;FOR Z=11TO 88STEP 11;BOX X,Y,Z,Z,3;&(23)=Z×3;BOX X,Y,Z,Z,3;NEXT Z;FC=28;&(21)=0;&(23)=0
1044 BC=89;FOR Z=1TO 50;NEXT Z;BC=0
1045 IF H=0GOTO 6000
1046 IF X+3>0IF X-3<0IF Y+3>0IF Y-3<0H=H-10
1047 H=H-10;IF H<0H=0
1060 T=T+5;CY=-30;CX=-28;PRINT #1,H,"%";GOTO 55
2000 &(20)=40;&(19)=37;&(21)=15;FC=92;LINE -40,-40,4;LINE 0,0,3;LINE 40,-40,3;XY=0;LINE -40,-40,3;XY=0;LINE 40,-40,3
2001 FC=28;&(20)=0;&(19)=0
2010 &(21)=0;IF PX(0,0)=1A=A-1;GOTO 2030
2020 GOTO 70
2030 FC=116;NT=3;FOR Z=1TO 11;MU=40;BOX X,Y,Z,Z,3;BOX X,Y,Z,Z,3;NEXT Z;FC=28;BOX 0,0,11,11,2
2035 IF A=0GOTO 7500
2040 CY=-38;PRINT #1,A," ALIEN",;IF A#1PRINT "S",
2045 PRINT " LEFT";FOR Z=1TO 500;NEXT Z;CY=-38;PRINT "             
2050 T=T+10;P=P-50;GOTO 40
3000 FOR Z=30TO 120;FC=6;BOX -45,-22,70,8,3;&(19)=Z×2;&(21)=15;NEXT Z;&(19)=0;FC=0;GOTO 8000
4000 FOR Z=1TO 100;FC=67;BOX -45,-14,70,8,3;&(19)=210-Z×2;&(21)=15;&(20)=25;NEXT Z;&(19)=0;&(20)=0;FC=0;GOTO 8000
6000 CY=-38;PRINT "YOU HAVE BEEN DESTROYED!!";&(23)=255;&(21)=255;&(19)=45;FOR Z=1TO 25;BC=93;NT=3
6010 MU=82;BC=0;NEXT Z;&(23)=0;&(19)=0;&(21)=0;FC=0;GOTO 8000
7500 PRINT "YOU HAVE DESTROYED THEM!!";FC=205;FOR Z=1TO 50;BOX 0,0,33,33,3;NEXT Z;P=P+25;IF P>W W=P
7510 PRINT ;PRINT "YOUR SCORE = ",#1,P;PRINT ;PRINT "TODAY'S HIGH SCORE = ",#1,W
7520 IF TR(1)GOTO 10
7530 GOTO 7520
8000 FOR Z=1TO 20;BC=98;&(23)=255;&(21)=255;NEXT Z;BC=0;&(23)=0;&(21)=0;GOTO 7520
RUN 
